From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 15 Mar 2011 01:12:54 +0000 (-0400)
Subject: * lisp/emacs-lisp/bytecomp.el (byte-compile-save-excursion): Change the
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~4390
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=879b99d8623d08d826746ba03bb222d5eeced56a;p=emacs.git

* lisp/emacs-lisp/bytecomp.el (byte-compile-save-excursion): Change the
warning message.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 356cfb829d8..117744b5ad3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-15  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* emacs-lisp/bytecomp.el (byte-compile-save-excursion): Change the
+	warning message.
+
 2011-03-14  Michael Albinus  <michael.albinus@gmx.de>
 
 	* shell.el (shell): When called interactively, offer to change the
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 5e24b80ac5a..5c845e59c85 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -3776,7 +3776,8 @@ that suppresses all warnings during execution of BODY."
 (defun byte-compile-save-excursion (form)
   (if (and (eq 'set-buffer (car-safe (car-safe (cdr form))))
            (byte-compile-warning-enabled-p 'suspicious))
-      (byte-compile-warn "`save-excursion' defeated by `set-buffer'"))
+      (byte-compile-warn
+       "Use `with-current-buffer' rather than save-excursion+set-buffer"))
   (byte-compile-out 'byte-save-excursion 0)
   (byte-compile-body-do-effect (cdr form))
   (byte-compile-out 'byte-unbind 1))